10 REM RANDOM DOODLE
11 T=1000
15 PRINT"[147]"
17 POKE53280,0:POKE53281,0
20 P=1024+INT(RND(1)*999)+1:G=P+54272
30 Z=INT(5*RND(1))+1
40 IFZ=1THENS=81
41 IFZ=2THENS=64
42 IFZ=3THENS=84
43 IFZ=4THENS=102
44 IFZ=5THENS=160
45 K=INT(8*RND(1))+1
50 IFK=1THENC=9
51 IFK=2THENC=1
52 IFK=3THENC=2
53 IFK=4THENC=3
54 IFK=5THENC=4
55 IFK=6THENC=5
56 IFK=7THENC=6
57 IFK=8THENC=7
80 D=INT(8*RND(1))+1
81 IFD=1THENR=-39
82 IFD=2THENR=-40
83 IFD=3THENR=-41
84 IFD=4THENR=-1
85 IFD=5THENR=1
86 IFD=6THENR=39
87 IFD=7THENR=40
88 IFD=8THENR=41
89 M=INT(40*RND(1))+1
90 FORZ=1TOM:POKEP,S:POKEG,C:P=P+R
95 IFP<=1024THENP=P-R
96 IFP>=2023THENP=P-R
97 G=P+54272
99 T=T-1
100 IFT=0THENGOTO10
110 PRINT"TIME";T
120 PRINT"[145][145][145]"
1101 NEXTZ
1110 GOTO30